Top 10k strings from Obs Prog. (19xx)(-)(dk)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   6 "OBS PROG"
   3 ,ta;"R.A.: ";rh;" Hz Dekl.:";dh;" Hz   "
   3 )*sds/3600
   2 rr=rr+rb*rk*rh*fk*(fra-gfra)+(fra-gfra)/180000
   2 o$(l)=o$(l+1
   2 l$(l)=l$(l+1
   2 koordinater
   2 ;"uto. kontrol ":
   2 *db*dk*dh*fk*(fra-gfra):
   2 );("Dekl. 
   2 (mdd-dd)<1
   2 "Nr. ? (0:Tilbage)";n:
   1 ttelse","6:Lagring","7:Optage","8:Blanding","9:Manuel kontrol"
   1 ttelse"'"4:Menu"'t:
   1 ta;"Tid? Tim.: ";T;" Min.: ";M;" Sek.: ";s
   1 ta;"R.A.? 
   1 ta;"Dekl.? 
   1 t=fra/3600
   1 t=(rr+1e-7
   1 t$(j)=o$(j):
   1 styring af kikkerten
   1 stjerne-hastighed
   1 s(l)=s(l+1
   1 s(l)<s(l+1
   1 s(h)=o(h,2
   1 s(h)=o(h,1
   1 s$(l)=s$(l+1
   1 s$(l)<s$(l+1
   1 s$(h)=o$(h):
   1 s$(h)=l$(h):
   1 rs;"""   "
   1 rr=srt+srm/60
   1 rm));"""  ";:
   1 rm));"""  ";
   1 rb=(arb1<arb2)-(arb1>arb2):
   1 o(l,c)=o(l+1
   1 o$(j)=t$(j-n+1
   1 o$(j)=o$(j+1
   1 o$(h)=s$(h):
   1 mrr=srt+srm/60
   1 mrr<rr)+mrr-rr)<1
   1 m$(j)=l$(j):
   1 l$(j)=m$(j-n+1
   1 l$(j)=l$(j+1
   1 l$(h)=s$(h):
   1 l koordinater
   1 l R.A. : ";
   1 l Dekl.: ";:
   1 karakterer (gradtegn
   1 fra=fra/50
   1 ds;"""   "
   1 dm));"""";
   1 dm));"""  "
   1 db=(mdd>dd)-(dd>mdd):
   1 d$(w)+q,s:
   1 arb2=mrr-rr:
   1 arb2=arb2+(24
   1 arb1=rr-mrr:
   1 arb1=arb1+(24
   1 a$="7")+(5300
   1 a$="6")+(5200
   1 a$="5")+(5100
   1 a$="4")+(l$(l)
   1 a$="4")+(5000
   1 a$="3")+(4700
   1 a$="2")+(4400
   1 a$="1")+(4300
   1 Udskrivning af tid
   1 Udskrivning af
   1 Udskrivning
   1 Subrutine:indstilling
   1 Program til manuel
   1 Overskrivning
   1 Opfyldning af tomme
   1 Observationsprogram
   1 OBSPROG   
   1 Numerisk sortering
   1 Max-hastighed eller
   1 Koordinater
   1 Initialisering
   1 For 200 Hz
   1 Finding af dataslut
   1 Brugerdefinerede
   1 Alfanumerisk sortering
   1 ;"p:Obs.-prog.";
   1 ;"anuel kontrol":
   1 :";srm;" "":";srs
   1 :";sdm;" "":";sds
   1 ,ta;(" 10 Hz
   1 ,ta;"k:Start koor.";
   1 ,ta;"i:Ur-indstil.";
   1 ,ta;"Typ:";l$(f);"  Obj:";o$(f):
   1 ,ta;"Dekl.    : ";("-"
   1 +(a$="1"):
   1 *highp)/256
   1 )=srt+srm/60
   1 );("200 Hz
   1 (pfr/65536
   1 (pfr-low2*256
   1 (pfr-65536
   1 (mrr-rr)<1
   1 "Tryk ENTER el.STOP ";b$:
   1 "Tast 0 0 0 0 0 0 for at standse"'':
   1 "Startnr. ? ";snr
   1 "Start nr. ? (0 for menu) ? ";snr:
   1 "Sortering efter :"''"1:R.A."'"2:Dekl."'"3:Kommentar"'"4:Type"'"5:Menu"''a$:
   1 "Objekttype: ";l$(n):
   1 "Nr. ? (0:Tilbage)";nr:
   1 "Kommentar : ";o$(n):
   1 "Ikke mere plads !!":
   1 ";srs;"""";" ";sdg;"
   1 ";sds;"""";" ";l$(n);" ";o$(n)
   1 "1:Skrivning","2:Udskrivning","3:Retning","4:Sortering","5:Igangs
   1 "1:Overskrivning"'"2:Sletning"'"3:Inds
   1 " ";l$(n);" ";o$(n):
   1  Dekl.   Obj. Kom.  "